program Project1; // Zadanie 2.1

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, c : Integer;

begin
  Writeln('Podaj bok a.');
  Readln(a);
  Writeln('Podaj bok b.');
  Readln(b);
  Writeln('Podaj bok c.');
  Readln(c);

  if (a*a+b*b) = (c*c) then
    Writeln('Boki a = ', a, ', b = ', b, ', c = ', c,' tworza trojkat prostokatny.')
  else
    Writeln('Boki a = ', a, ', b = ', b, ', c = ', c,' nie tworza trojkata prostokatnego.');

  Readln; // czeka na nacisniecie klawisza Enter
end.
